Sub 매크로샘플()

    Dim i As Long
    
    Range("B3:B14").ClearContents
    
    For i = 1 To 10

        Range("B3").Value = Range("B3").Value + i
        Range("B" & 4 + i).Value = i
        
        If Range("B3").Value > 30 Then
        
            Exit For
        
        End If

    Next

End Sub